home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / make / icmake-6.000 / icmake-6 / icmake / comp / unequal.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-02-08  |  951 b   |  39 lines
  1. /*
  2.                             U N E Q U A L . C
  3. */
  4.  
  5. #include "iccomp.h"
  6.  
  7. ESTRUC_ *unequal (lval, rval)
  8.     ESTRUC_
  9.         *lval,
  10.         *rval;
  11. {
  12.     btoi(lval);                             /* convert boolean to i */
  13.     btoi(rval);
  14.  
  15.     if (conflict(lval, rval, op_neq))       /* test type conflict */
  16.         return(lval);
  17.  
  18.     if ((lval->type & rval->type & ~ALLTYPES) == e_const)
  19.     {
  20.         if (test_type(lval, e_int))
  21.             lval->evalue = (lval->evalue != rval->evalue);
  22.         else
  23.         {
  24.             lval->evalue =
  25.                         strcmp
  26.                         (
  27.                             stringtab[lval->evalue].string,
  28.                             stringtab[rval->evalue].string
  29.                         )
  30.                         != 0;
  31.             set_type(lval, e_int | e_const);
  32.         }
  33.     }
  34.     else
  35.         defcode(lval, rval, op_neq);
  36.  
  37.     return (lval);                          /* return new expression */
  38. }
  39.